home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / VTP031.ZIP;1 / TEST.ZIP / TDATES.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-11-26  |  368 b   |  36 lines
  1. Program tdates;
  2.  
  3. uses
  4.  
  5.   dos,
  6.   dates;
  7.  
  8. Var
  9.  
  10.   y,mo,d,h,m,s:word;
  11.  
  12.   j : LONGINT;
  13.  
  14. BEGIN
  15.  
  16.   WriteLn( Norm2Unix( 1993, 11, 26, 1,1,1 ) );
  17.  
  18.  
  19.   unix2norm( 754275661,y,mo,d,h,m,s );
  20.  
  21.   writeln( y:5,mo:5,d:5,h:5,m:5,s:5 );
  22.  
  23.  
  24. (*
  25.   For d := 1 to 15 Do
  26.   begin
  27.     GregorianToJulianDN( 1582, 10, d, J );
  28.  
  29.     writeln( j );
  30.   end;
  31. *)
  32.  
  33.  
  34. END.
  35.  
  36.